10 GOSUB1102:PRINTA$;:GOTO10:REM THIS IS THE "HOST" PROGRAM
1101 GOTO1109:REM GET WITH CURSOR BLINK
1102 XL%=PEEK(211)
1103 IFXL%>39THENXL%=XL%-40:GOTO1103
1104 XL%=XL%+PEEK(214)*40+1024:XC=54272+XL%
1105 POKEXC,PEEK(646):XO%=PEEK(XL%):XT%=XO%:XQ%=128:IFXO%>127THENXQ%=-XQ%
1106 XT%=XT%+XQ%:POKEXL%,XT%:XQ%=-XQ%:FORXR=1TO60:REM CHANGING 60 CHANGES BLINK SPEED
1107 GETA$:IFA$<>""THENPOKEXL%,XO%:RETURN
1108 NEXT XR:GOTO1106
1109 REM